home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
text+faqs
/
trekguide
/
tg_screen.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-02-26
|
743b
|
29 lines
/*SET SCREENMODE FOR TREK-THE.GUIDE v1.0 */
if ~show('L','rexxreqtools.library') then
call addlib("rexxreqtools.library", 0, -30, 0)
NL = '0a'x
sm:
screenmode = rtscreenmoderequest( "Pick Screen Resolution", ,,
"rtsc_flags = screqf_sizegads", screen)
if screenmode ~= "" then do
open(dfile, 'envarc:Trekguide.prefs', 'w')
writeln(dfile, screen.width'|'screen.height)
close(dfile)
/*say 'the screenwidth is' screen.width
say 'the screenheigh is' screen.height
*/
end
if screenmode = "" then do
call rtezrequest( "You MUST pick a screen mode before running" || NL || "Trek-the.Guide for the first time", " OK ", , )
/* call sm()*/
end
call rtfreefilebuffer()
address command 'copy envarc:trekguide.prefs env:'